home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 44
/
Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso
/
Aminet
/
comm
/
mail
/
YAM23.lha
/
YAM2.3
/
Rexx
/
Example1.yam
< prev
next >
Wrap
Text File
|
2000-04-19
|
822b
|
19 lines
/* Example1.yam - YAM ARexx interface example #1 */
/* $VER: Example1.yam 1.0 (14.03.99) © 1999 by M.Beck <mbeck@yam.ch> */
/* Save selected messages in plain text format. Files are named */
/* RAM:1.msg, RAM:2.msg, etc. Requires YAM 2.0p7 or later */
OPTIONS RESULTS
ADDRESS YAM
GetSelected STEM selected. /* Get list of selected messages */
c = 0
DO i = 0 TO selected.NUM.COUNT-1 /* Loop through selected mails */
SetMail selected.NUM.i /* Set current message */
MailRead QUIET /* Decode message in background */
c = c+1 /* Increase filename counter */
'ReadSave FILENAME "RAM:'c'.msg"' /* Save visible part to RAM: */
ReadClose /* Finish reading */
END